(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 10.4' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     46328,       1621]
NotebookOptionsPosition[     36916,       1328]
NotebookOutlinePosition[     42417,       1476]
CellTagsIndexPosition[     42301,       1470]
WindowTitle->CovariantD
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[GridBox[{
   {Cell["FEYN CALC SYMBOL", "PacletNameCell"], Cell[TextData[Cell[BoxData[
     ActionMenuBox[
      FrameBox[
       InterpretationBox[Cell[TextData[{
         "URL",
         StyleBox[" \[FilledDownTriangle]", "AnchorBarArrow",
          StripOnInput->False]
        }]],
        TextCell[
         Row[{"URL", 
           Style[" \[FilledDownTriangle]", "AnchorBarArrow"]}]]],
       StripOnInput->False], {"\<\"FeynCalc/ref/CovariantD\"\>":>
      None, "\<\"Copy Wolfram Documentation Center URL\"\>":>
      Module[{DocumentationSearch`Private`nb$}, 
       DocumentationSearch`Private`nb$ = NotebookPut[
          Notebook[{
            Cell["FeynCalc/ref/CovariantD"]}, Visible -> False]]; 
       SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
       FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
       NotebookClose[DocumentationSearch`Private`nb$]; Null], 
      Delimiter, "\<\"Copy web URL\"\>":>
      Module[{DocumentationSearch`Private`nb$}, 
       DocumentationSearch`Private`nb$ = NotebookPut[
          Notebook[{
            Cell[
             BoxData[
              MakeBoxes[
               Hyperlink[
               "http://reference.wolfram.com/language/FeynCalc/ref/CovariantD.\
html"], StandardForm]], "Input", TextClipboardType -> "PlainText"]}, Visible -> 
           False]]; SelectionMove[
        DocumentationSearch`Private`nb$, All, Notebook]; 
       FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
       NotebookClose[DocumentationSearch`Private`nb$]; 
       Null], "\<\"Go to web URL\"\>":>FrontEndExecute[{
        NotebookLocate[{
          URL[
           StringJoin[
            If[
             TrueQ[DocumentationBuild`Make`Private`wsmlinkQ$48830], 
             "http://reference.wolfram.com/system-modeler/", 
             "http://reference.wolfram.com/language/"], 
            "FeynCalc/ref/CovariantD", ".html"]], None}]}]},
      Appearance->None,
      MenuAppearance->Automatic,
      MenuStyle->"URLMenu"]],
     LineSpacing->{1.4, 0}]], "AnchorBar"]}
  }]], "AnchorBarGrid",
 GridBoxOptions->{GridBoxItemSize->{"Columns" -> {
     Scaled[0.65], {
      Scaled[0.34]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
   "RowsIndexed" -> {}}},
 CellID->1],

Cell[TextData[{
 Cell["CovariantD", "ObjectName"],
 Cell[BoxData[
  InterpretationBox[
   StyleBox[
    GraphicsBox[{},
     BaselinePosition->Baseline,
     ImageSize->{8, 0}],
    CacheGraphics->False],
   Spacer[8]]]],
 Cell[BoxData[""], "ObjectNameTranslation"]
}], "ObjectNameGrid"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{"CovariantD", "[", "\[Mu]", "]"}]], "InlineFormula"],
     " \[LineSeparator]is a generic covariant derivative with Lorentz index \
\[Mu]."
    }]]},
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{"CovariantD", "[", 
       RowBox[{"x", ",", "\[Mu]"}], "]"}]], "InlineFormula"],
     " \[LineSeparator]is a generic covariant derivative with respect to ",
     Cell[BoxData[
      SuperscriptBox["x", "\[Mu]"]], "InlineFormula"],
     "."
    }]]},
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{"CovariantD", "[", 
       RowBox[{"\[Mu]", ",", "a", ",", "b"}], "]"}]], "InlineFormula"],
     " \[LineSeparator]is a covariant derivative for a bosonic field that \
acts on ",
     Cell[BoxData[
      RowBox[{"QuantumField", "[", 
       RowBox[{"f", ",", 
        RowBox[{"{", "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"a", ",", "b"}], "}"}]}], "]"}]], "InlineFormula"],
     ", where ",
     Cell[BoxData["f"], "InlineFormula"],
     " is some field name and ",
     Cell[BoxData["a"], "InlineFormula"],
     " and ",
     Cell[BoxData["b"], "InlineFormula"],
     " are two ",
     Cell[BoxData[
      RowBox[{"SU", 
       RowBox[{"(", "N", ")"}]}]], "InlineFormula"],
     " indices in the adjoint representation."
    }]]},
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{"CovariantD", "[", 
       RowBox[{"OPEDelta", ",", "a", ",", "b"}], "]"}]], "InlineFormula"],
     " \[LineSeparator]is a short form for ",
     Cell[BoxData[
      RowBox[{
       RowBox[{"CovariantD", "[", 
        RowBox[{"\[Mu]", ",", "a", ",", "b"}], "]"}], " ", 
       RowBox[{"FV", "[", 
        RowBox[{"OPEDelta", ",", " ", "\[Mu]"}], "]"}]}]], "InlineFormula"],
     "."
    }]]},
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{"CovariantD", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"OPEDelta", ",", "a", ",", "b"}], "}"}], ",", 
        RowBox[{"{", "n", "}"}]}], "]"}]], "InlineFormula"],
     " \[LineSeparator]yields the product of ",
     Cell[BoxData["n"], "InlineFormula"],
     " operators, where ",
     Cell[BoxData["n"], "InlineFormula"],
     " is an integer."
    }]]},
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{"CovariantD", "[", 
       RowBox[{"OPEDelta", ",", "a", ",", "b", ",", 
        RowBox[{"{", 
         RowBox[{"m", ",", "n"}], "}"}]}], "]"}]], "InlineFormula"],
     " \[LineSeparator]gives the expanded form of ",
     Cell[BoxData[
      RowBox[{
       RowBox[{"CovariantD", "[", 
        RowBox[{"OPEDelta", ",", " ", "a", ",", " ", "b"}], "]"}], "^", 
       "m"}]], "InlineFormula"],
     " up to order ",
     Cell[BoxData[
      RowBox[{"g", "^", "n"}]], "InlineFormula"],
     " for the gluon, where ",
     Cell[BoxData["n"], "InlineFormula"],
     " is an integer and ",
     Cell[BoxData["g"], "InlineFormula"],
     " the coupling constant indicated by the setting of the option ",
     ButtonBox["CouplingConstant.",
      BaseStyle->"Link",
      ButtonData->"paclet:FeynCalc/ref/CouplingConstant",
      ButtonNote->"CouplingConstant"]
    }]]},
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{"CovariantD", "[", 
       RowBox[{"OPEDelta", ",", 
        RowBox[{"{", 
         RowBox[{"m", ",", "n"}], "}"}]}], "]"}]], "InlineFormula"],
     " \[LineSeparator]gives the expanded form of ",
     Cell[BoxData[
      RowBox[{
       RowBox[{"CovariantD", "[", "OPEDelta", "]"}], "^", "m"}]], 
      "InlineFormula"],
     " up to order ",
     Cell[BoxData[
      RowBox[{"g", "^", "n"}]], "InlineFormula"],
     " of the fermionic field."
    }]]}
  }]], "Usage",
 GridBoxOptions->{
 GridBoxBackground->{
  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, 
   "Rows" -> {None, None, None, None, None, None, {None}}, 
   "RowsIndexed" -> {}}}],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 ButtonBox[Cell[TextData[{
   Cell[BoxData[
    InterpretationBox[
     StyleBox[
      GraphicsBox[{},
       BaselinePosition->Baseline,
       ImageSize->{6, 0}],
      CacheGraphics->False],
     Spacer[6]]]],
   "Details"
  }], "NotesFrameText"],
  Appearance->{Automatic, None},
  BaseStyle->None,
  ButtonFunction:>(FrontEndExecute[{
     FrontEnd`SelectionMove[
      FrontEnd`SelectedNotebook[], All, ButtonCell], 
     FrontEndToken["OpenCloseGroup"], 
     FrontEnd`SelectionMove[
      FrontEnd`SelectedNotebook[], After, CellContents]}]& ),
  Evaluator->None,
  Method->"Preemptive"]]]], "NotesSection",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1013191662],

Cell["", "SectionHeaderSpacer"],

Cell[TextData[{
 "To obtain the explicit expression for a particular covariant derivatine, \
the option ",
 Cell[BoxData["Explicit"], "InlineFormula"],
 " must be set to ",
 Cell[BoxData["True"], "InlineFormula"],
 "."
}], "Notes"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Options", "[", "CovariantD", "]"}]], "Input",
 CellTags->"CovariantD",
 CellLabel->"In[211]:=",
 CellID->1136125130],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
    RowBox[{"CouplingConstant", "\[Rule]", 
     SubscriptBox["g", "s"]}], ",", 
    RowBox[{"DummyIndex", "\[Rule]", "Automatic"}], ",", 
    RowBox[{"Explicit", "\[Rule]", "False"}], ",", 
    RowBox[{"FCPartialD", "\[Rule]", "RightPartialD"}], ",", 
    RowBox[{"QuantumField", "\[Rule]", "A"}]}], "}"}], 
  TraditionalForm]], "Output",
 ImageSize->{409, 35},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"CovariantD",
 CellLabel->"Out[211]="]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  InterpretationBox[
   StyleBox[
    GraphicsBox[{},
     BaselinePosition->Baseline,
     ImageSize->{6, 0}],
    CacheGraphics->False],
   Spacer[6]]]],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(4)", "ExampleCount"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CellTags->"PrimaryExamplesSection",
 CellID->892444633],

Cell[CellGroupData[{

Cell[TextData[{
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(4)", "ExampleCount"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CellID->699025235],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CovariantD", "[", "\[Mu]", "]"}]], "Input",
 CellTags->"CovariantD",
 CellLabel->"In[1]:=",
 CellID->691762283],

Cell[BoxData[
 FormBox[
  SubscriptBox["D", 
   FormBox["\[Mu]",
    TraditionalForm]], TraditionalForm]], "Output",
 ImageSize->{25, 18},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"CovariantD",
 CellLabel->"Out[1]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CovariantD", "[", 
  RowBox[{"\[Mu]", ",", "a", ",", "b"}], "]"}]], "Input",
 CellTags->"CovariantD",
 CellLabel->"In[2]:=",
 CellID->631235757],

Cell[BoxData[
 FormBox[
  SubsuperscriptBox["D", 
   FormBox["\[Mu]",
    TraditionalForm], 
   RowBox[{
    FormBox["a",
     TraditionalForm], 
    FormBox["b",
     TraditionalForm]}]], TraditionalForm]], "Output",
 ImageSize->{41, 22},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"CovariantD",
 CellLabel->"Out[2]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CovariantD", "[", 
  RowBox[{"\[Mu]", ",", 
   RowBox[{"Explicit", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellTags->"CovariantD",
 CellLabel->"In[3]:=",
 CellID->1730385129],

Cell[BoxData[
 FormBox[
  RowBox[{
   SubscriptBox[
    OverscriptBox["\[PartialD]", "\[RightArrow]"], 
    FormBox[
     FormBox["\[Mu]",
      TraditionalForm],
     TraditionalForm]], "-", 
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["g", "s"], " ", 
    RowBox[{
     SuperscriptBox["T", 
      FormBox[
       FormBox["c24",
        TraditionalForm],
       TraditionalForm]], ".", 
     SubsuperscriptBox[
      FormBox["A",
       TraditionalForm], 
      FormBox[
       FormBox["\[Mu]",
        TraditionalForm],
       TraditionalForm], 
      FormBox[
       FormBox["c24",
        TraditionalForm],
       TraditionalForm]]}]}]}], TraditionalForm]], "Output",
 ImageSize->{135, 25},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"CovariantD",
 CellLabel->"Out[3]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell["\t", "ExampleDelimiter"],
  $Line = 0; Null]], "ExampleDelimiter"],

Cell[TextData[{
 "The first argument of ",
 ButtonBox["CovariantD",
  BaseStyle->"Link",
  ButtonData->"paclet:FeynCalc/ref/CovariantD",
  ButtonNote->"CovariantD"],
 " is intepreted as type ",
 ButtonBox["LorentzIndex",
  BaseStyle->"Link",
  ButtonData->"paclet:FeynCalc/ref/LorentzIndex",
  ButtonNote->"LorentzIndex"],
 ", except for ",
 ButtonBox["OPEDelta",
  BaseStyle->"Link",
  ButtonData->"paclet:FeynCalc/ref/OPEDelta",
  ButtonNote->"OPEDelta"],
 ", which is type ",
 ButtonBox["Momentum",
  BaseStyle->"Link",
  ButtonData->"paclet:FeynCalc/ref/Momentum",
  ButtonNote->"Momentum"],
 "."
}], "Notes"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CovariantD", "[", "OPEDelta", "]"}]], "Input",
 CellTags->"CovariantD",
 CellLabel->"In[1]:=",
 CellID->1980257576],

Cell[BoxData[
 FormBox[
  SubscriptBox["D", 
   FormBox["\[CapitalDelta]",
    TraditionalForm]], TraditionalForm]], "Output",
 ImageSize->{25, 16},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"CovariantD",
 CellLabel->"Out[1]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CovariantD", "[", 
  RowBox[{"OPEDelta", ",", "a", ",", "b"}], "]"}]], "Input",
 CellTags->"CovariantD",
 CellLabel->"In[2]:=",
 CellID->840690314],

Cell[BoxData[
 FormBox[
  SubsuperscriptBox["D", 
   FormBox["\[CapitalDelta]",
    TraditionalForm], 
   RowBox[{
    FormBox["a",
     TraditionalForm], 
    FormBox["b",
     TraditionalForm]}]], TraditionalForm]], "Output",
 ImageSize->{41, 20},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"CovariantD",
 CellLabel->"Out[2]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CovariantD", "[", 
  RowBox[{"OPEDelta", ",", "a", ",", "b", ",", 
   RowBox[{"Explicit", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellTags->"CovariantD",
 CellLabel->"In[3]:=",
 CellID->82457380],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    SuperscriptBox["\[Delta]", 
     RowBox[{
      FormBox["a",
       TraditionalForm], 
      FormBox["b",
       TraditionalForm]}]], " ", 
    SubscriptBox[
     OverscriptBox["\[PartialD]", "\[RightArrow]"], 
     FormBox[
      FormBox["\[CapitalDelta]",
       TraditionalForm],
      TraditionalForm]]}], "-", 
   RowBox[{
    SubscriptBox["g", "s"], " ", 
    SubsuperscriptBox[
     FormBox["A",
      TraditionalForm], 
     FormBox[
      FormBox["\[CapitalDelta]",
       TraditionalForm],
      TraditionalForm], 
     FormBox[
      FormBox["c25",
       TraditionalForm],
      TraditionalForm]], " ", 
    SuperscriptBox["f", 
     RowBox[{
      FormBox["a",
       TraditionalForm], 
      FormBox["b",
       TraditionalForm], 
      FormBox["c25",
       TraditionalForm]}]]}]}], TraditionalForm]], "Output",
 ImageSize->{182, 23},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"CovariantD",
 CellLabel->"Out[3]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CovariantD", "[", 
  RowBox[{"OPEDelta", ",", 
   RowBox[{"Explicit", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellTags->"CovariantD",
 CellLabel->"In[4]:=",
 CellID->570341066],

Cell[BoxData[
 FormBox[
  RowBox[{
   SubscriptBox[
    OverscriptBox["\[PartialD]", "\[RightArrow]"], 
    FormBox[
     FormBox["\[CapitalDelta]",
      TraditionalForm],
     TraditionalForm]], "-", 
   RowBox[{"\[ImaginaryI]", " ", 
    SubscriptBox["g", "s"], " ", 
    RowBox[{
     SuperscriptBox["T", 
      FormBox[
       FormBox["c26",
        TraditionalForm],
       TraditionalForm]], ".", 
     SubsuperscriptBox[
      FormBox["A",
       TraditionalForm], 
      FormBox[
       FormBox["\[CapitalDelta]",
        TraditionalForm],
       TraditionalForm], 
      FormBox[
       FormBox["c26",
        TraditionalForm],
       TraditionalForm]]}]}]}], TraditionalForm]], "Output",
 ImageSize->{135, 23},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"CovariantD",
 CellLabel->"Out[4]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CovariantD", "[", 
  RowBox[{"OPEDelta", ",", "a", ",", "b", ",", 
   RowBox[{"{", "2", "}"}]}], "]"}]], "Input",
 CellTags->"CovariantD",
 CellLabel->"In[5]:=",
 CellID->1557639505],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SuperscriptBox["\[Delta]", 
       RowBox[{
        FormBox["a",
         TraditionalForm], 
        FormBox["c27",
         TraditionalForm]}]], " ", 
      SubscriptBox[
       OverscriptBox["\[PartialD]", "\[RightArrow]"], 
       FormBox[
        FormBox["\[CapitalDelta]",
         TraditionalForm],
        TraditionalForm]]}], "-", 
     RowBox[{
      SubscriptBox["g", "s"], " ", 
      SubsuperscriptBox[
       FormBox["A",
        TraditionalForm], 
       FormBox[
        FormBox["\[CapitalDelta]",
         TraditionalForm],
        TraditionalForm], 
       FormBox[
        FormBox["e28",
         TraditionalForm],
        TraditionalForm]], " ", 
      SuperscriptBox["f", 
       RowBox[{
        FormBox["a",
         TraditionalForm], 
        FormBox["c27",
         TraditionalForm], 
        FormBox["e28",
         TraditionalForm]}]]}]}], ")"}], ".", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SuperscriptBox["\[Delta]", 
       RowBox[{
        FormBox["b",
         TraditionalForm], 
        FormBox["c27",
         TraditionalForm]}]], " ", 
      SubscriptBox[
       OverscriptBox["\[PartialD]", "\[RightArrow]"], 
       FormBox[
        FormBox["\[CapitalDelta]",
         TraditionalForm],
        TraditionalForm]]}], "-", 
     RowBox[{
      SubscriptBox["g", "s"], " ", 
      SubsuperscriptBox[
       FormBox["A",
        TraditionalForm], 
       FormBox[
        FormBox["\[CapitalDelta]",
         TraditionalForm],
        TraditionalForm], 
       FormBox[
        FormBox["e29",
         TraditionalForm],
        TraditionalForm]], " ", 
      SuperscriptBox["f", 
       RowBox[{
        FormBox["c27",
         TraditionalForm], 
        FormBox["b",
         TraditionalForm], 
        FormBox["e29",
         TraditionalForm]}]]}]}], ")"}]}], TraditionalForm]], "Output",
 ImageSize->{421, 27},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"CovariantD",
 CellLabel->"Out[5]="]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell["\t", "ExampleDelimiter"],
  $Line = 0; Null]], "ExampleDelimiter"],

Cell[TextData[{
 "This gives",
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    RowBox[{
     RowBox[{"m", " ", "*", " ", 
      SubscriptBox[
       OverscriptBox["\[PartialD]", "\[RightArrow]"], "\[CapitalDelta]"]}], 
     ",", " "}]}], TraditionalForm]]],
 "the partial derivative ",
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    OverscriptBox["\[PartialD]", "\[RightArrow]"], 
    RowBox[{"\[Mu]", " "}]], TraditionalForm]]],
 "contracted with ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["\[CapitalDelta]", "\[Mu]"], "."}], TraditionalForm]]]
}], "Notes"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CovariantD", "[", 
  RowBox[{"OPEDelta", ",", "a", ",", "b", ",", 
   RowBox[{"{", 
    RowBox[{"OPEm", ",", "0"}], "}"}]}], "]"}]], "Input",
 CellTags->"CovariantD",
 CellLabel->"In[1]:=",
 CellID->1826343413],

Cell[BoxData[
 FormBox[
  RowBox[{
   SuperscriptBox["\[Delta]", 
    RowBox[{
     FormBox[
      FormBox["a",
       TraditionalForm],
      TraditionalForm], 
     FormBox[
      FormBox["b",
       TraditionalForm],
      TraditionalForm]}]], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     SubscriptBox[
      OverscriptBox["\[PartialD]", "\[RightArrow]"], 
      FormBox[
       FormBox["\[CapitalDelta]",
        TraditionalForm],
       TraditionalForm]], ")"}], "m"]}], TraditionalForm]], "Output",
 ImageSize->{83, 22},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"CovariantD",
 CellLabel->"Out[1]="]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell["\t", "ExampleDelimiter"],
  $Line = 0; Null]], "ExampleDelimiter"],

Cell[TextData[{
 "The expansion up to first order in the coupling constant ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["g", "s"], TraditionalForm]]],
 " (the sum is the ",
 ButtonBox["FeynCalcOPESum",
  BaseStyle->"Link",
  ButtonData->"paclet:FeynCalc/ref/FeynCalcOPESum",
  ButtonNote->"FeynCalcOPESum"],
 ")"
}], "Notes"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CovariantD", "[", 
  RowBox[{"OPEDelta", ",", "a", ",", "b", ",", 
   RowBox[{"{", 
    RowBox[{"OPEm", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellTags->"CovariantD",
 CellLabel->"In[1]:=",
 CellID->1721350899],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    SuperscriptBox["\[Delta]", 
     RowBox[{
      FormBox[
       FormBox["a",
        TraditionalForm],
       TraditionalForm], 
      FormBox[
       FormBox["b",
        TraditionalForm],
       TraditionalForm]}]], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      SubscriptBox[
       OverscriptBox["\[PartialD]", "\[RightArrow]"], 
       FormBox[
        FormBox["\[CapitalDelta]",
         TraditionalForm],
        TraditionalForm]], ")"}], "m"]}], "-", 
   RowBox[{
    SubscriptBox["g", "s"], " ", 
    RowBox[{"(", 
     FormBox[
      TagBox[
       RowBox[{
        UnderoverscriptBox["\[Sum]", 
         RowBox[{"i", "=", "0"}], 
         RowBox[{
          RowBox[{"-", "1"}], "+", "m"}]], 
        RowBox[{
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            SubscriptBox[
             OverscriptBox["\[PartialD]", "\[RightArrow]"], 
             FormBox[
              FormBox["\[CapitalDelta]",
               TraditionalForm],
              TraditionalForm]], ")"}], "i"], ".", 
          SubsuperscriptBox[
           FormBox["A",
            TraditionalForm], 
           FormBox[
            FormBox["\[CapitalDelta]",
             TraditionalForm],
            TraditionalForm], 
           FormBox[
            FormBox[
             SubscriptBox["c47", "1"],
             TraditionalForm],
            TraditionalForm]], ".", 
          SuperscriptBox[
           RowBox[{"(", 
            SubscriptBox[
             OverscriptBox["\[PartialD]", "\[RightArrow]"], 
             FormBox[
              FormBox["\[CapitalDelta]",
               TraditionalForm],
              TraditionalForm]], ")"}], 
           RowBox[{
            RowBox[{"-", "1"}], "-", "i", "+", "m"}]]}], " ", 
         SuperscriptBox["f", 
          RowBox[{
           FormBox[
            FormBox["a",
             TraditionalForm],
            TraditionalForm], 
           FormBox[
            FormBox["b",
             TraditionalForm],
            TraditionalForm], 
           FormBox[
            FormBox[
             SubscriptBox["c47", "1"],
             TraditionalForm],
            TraditionalForm]}]]}]}],
       HoldForm],
      TraditionalForm], ")"}]}]}], TraditionalForm]], "Output",
 ImageSize->{404, 47},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"CovariantD",
 CellLabel->"Out[1]="]
}, Open  ]],

Cell[TextData[{
 "The expansion up to second order in the ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["g", "s"], "."}], TraditionalForm]]]
}], "Notes"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CovariantD", "[", 
  RowBox[{"OPEDelta", ",", "a", ",", "b", ",", 
   RowBox[{"{", 
    RowBox[{"OPEm", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellTags->"CovariantD",
 CellLabel->"In[2]:=",
 CellID->1002319987],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"-", 
    RowBox[{
     SubscriptBox["g", "s"], " ", 
     RowBox[{"(", 
      FormBox[
       TagBox[
        RowBox[{
         UnderoverscriptBox["\[Sum]", 
          RowBox[{"i", "=", "0"}], 
          RowBox[{
           RowBox[{"-", "1"}], "+", "m"}]], 
         RowBox[{
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             SubscriptBox[
              OverscriptBox["\[PartialD]", "\[RightArrow]"], 
              FormBox[
               FormBox["\[CapitalDelta]",
                TraditionalForm],
               TraditionalForm]], ")"}], "i"], ".", 
           SubsuperscriptBox[
            FormBox["A",
             TraditionalForm], 
            FormBox[
             FormBox["\[CapitalDelta]",
              TraditionalForm],
             TraditionalForm], 
            FormBox[
             FormBox[
              SubscriptBox["c55", "1"],
              TraditionalForm],
             TraditionalForm]], ".", 
           SuperscriptBox[
            RowBox[{"(", 
             SubscriptBox[
              OverscriptBox["\[PartialD]", "\[RightArrow]"], 
              FormBox[
               FormBox["\[CapitalDelta]",
                TraditionalForm],
               TraditionalForm]], ")"}], 
            RowBox[{
             RowBox[{"-", "1"}], "-", "i", "+", "m"}]]}], " ", 
          SuperscriptBox["f", 
           RowBox[{
            FormBox[
             FormBox["a",
              TraditionalForm],
             TraditionalForm], 
            FormBox[
             FormBox["b",
              TraditionalForm],
             TraditionalForm], 
            FormBox[
             FormBox[
              SubscriptBox["c55", "1"],
              TraditionalForm],
             TraditionalForm]}]]}]}],
        HoldForm],
       TraditionalForm], ")"}]}]}], "-", 
   RowBox[{
    SubsuperscriptBox["g", "s", "2"], " ", 
    RowBox[{"(", 
     FormBox[
      TagBox[
       RowBox[{
        UnderoverscriptBox["\[Sum]", 
         RowBox[{"j", "=", "0"}], 
         RowBox[{
          RowBox[{"-", "2"}], "+", "m"}]], 
        RowBox[{"(", 
         FormBox[
          TagBox[
           RowBox[{
            UnderoverscriptBox["\[Sum]", 
             RowBox[{"i", "=", "0"}], "j"], 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"(", 
                SubscriptBox[
                 OverscriptBox["\[PartialD]", "\[RightArrow]"], 
                 FormBox[
                  FormBox["\[CapitalDelta]",
                   TraditionalForm],
                  TraditionalForm]], ")"}], "i"], ".", 
              SubsuperscriptBox[
               FormBox["A",
                TraditionalForm], 
               FormBox[
                FormBox["\[CapitalDelta]",
                 TraditionalForm],
                TraditionalForm], 
               FormBox[
                FormBox[
                 SubscriptBox["c59", "1"],
                 TraditionalForm],
                TraditionalForm]], ".", 
              SuperscriptBox[
               RowBox[{"(", 
                SubscriptBox[
                 OverscriptBox["\[PartialD]", "\[RightArrow]"], 
                 FormBox[
                  FormBox["\[CapitalDelta]",
                   TraditionalForm],
                  TraditionalForm]], ")"}], 
               RowBox[{
                RowBox[{"-", "i"}], "+", "j"}]], ".", 
              SubsuperscriptBox[
               FormBox["A",
                TraditionalForm], 
               FormBox[
                FormBox["\[CapitalDelta]",
                 TraditionalForm],
                TraditionalForm], 
               FormBox[
                FormBox[
                 SubscriptBox["c59", "2"],
                 TraditionalForm],
                TraditionalForm]], ".", 
              SuperscriptBox[
               RowBox[{"(", 
                SubscriptBox[
                 OverscriptBox["\[PartialD]", "\[RightArrow]"], 
                 FormBox[
                  FormBox["\[CapitalDelta]",
                   TraditionalForm],
                  TraditionalForm]], ")"}], 
               RowBox[{
                RowBox[{"-", "2"}], "-", "j", "+", "m"}]]}], " ", 
             SuperscriptBox["f", 
              RowBox[{
               FormBox[
                FormBox["a",
                 TraditionalForm],
                TraditionalForm], 
               FormBox[
                FormBox[
                 SubscriptBox["c59", "1"],
                 TraditionalForm],
                TraditionalForm], 
               FormBox[
                FormBox[
                 SubscriptBox["e58", "1"],
                 TraditionalForm],
                TraditionalForm]}]], " ", 
             SuperscriptBox["f", 
              RowBox[{
               FormBox[
                FormBox["b",
                 TraditionalForm],
                TraditionalForm], 
               FormBox[
                FormBox[
                 SubscriptBox["c59", "2"],
                 TraditionalForm],
                TraditionalForm], 
               FormBox[
                FormBox[
                 SubscriptBox["e58", "1"],
                 TraditionalForm],
                TraditionalForm]}]]}]}],
           HoldForm],
          TraditionalForm], ")"}]}],
       HoldForm],
      TraditionalForm], ")"}]}], "+", 
   RowBox[{
    SuperscriptBox["\[Delta]", 
     RowBox[{
      FormBox[
       FormBox["a",
        TraditionalForm],
       TraditionalForm], 
      FormBox[
       FormBox["b",
        TraditionalForm],
       TraditionalForm]}]], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      SubscriptBox[
       OverscriptBox["\[PartialD]", "\[RightArrow]"], 
       FormBox[
        FormBox["\[CapitalDelta]",
         TraditionalForm],
        TraditionalForm]], ")"}], "m"]}]}], TraditionalForm]], "Output",
 ImageSize->{569, 135},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"CovariantD",
 CellLabel->"Out[2]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 SuperscriptBox[
  RowBox[{"CovariantD", "[", 
   RowBox[{"OPEDelta", ",", "a", ",", "b"}], "]"}], "OPEm"]], "Input",
 CellTags->"CovariantD",
 CellLabel->"In[3]:=",
 CellID->608320512],

Cell[BoxData[
 FormBox[
  SuperscriptBox[
   RowBox[{"(", 
    SubsuperscriptBox["D", 
     FormBox["\[CapitalDelta]",
      TraditionalForm], 
     RowBox[{
      FormBox["a",
       TraditionalForm], 
      FormBox["b",
       TraditionalForm]}]], ")"}], "m"], TraditionalForm]], "Output",
 ImageSize->{66, 22},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"CovariantD",
 CellLabel->"Out[3]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CovariantD", "[", 
  RowBox[{"OPEDelta", ",", 
   RowBox[{"{", 
    RowBox[{"OPEm", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellTags->"CovariantD",
 CellLabel->"In[4]:=",
 CellID->512528140],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"-", 
    RowBox[{"\[ImaginaryI]", " ", 
     SubscriptBox["g", "s"], " ", 
     RowBox[{"(", 
      FormBox[
       TagBox[
        RowBox[{
         UnderoverscriptBox["\[Sum]", 
          RowBox[{"i", "=", "0"}], 
          RowBox[{
           RowBox[{"-", "1"}], "+", "m"}]], 
         RowBox[{
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             SubscriptBox[
              OverscriptBox["\[PartialD]", "\[RightArrow]"], 
              FormBox[
               FormBox["\[CapitalDelta]",
                TraditionalForm],
               TraditionalForm]], ")"}], "i"], ".", 
           SubsuperscriptBox[
            FormBox["A",
             TraditionalForm], 
            FormBox[
             FormBox["\[CapitalDelta]",
              TraditionalForm],
             TraditionalForm], 
            FormBox[
             FormBox[
              SubscriptBox["c68", "1"],
              TraditionalForm],
             TraditionalForm]], ".", 
           SuperscriptBox[
            RowBox[{"(", 
             SubscriptBox[
              OverscriptBox["\[PartialD]", "\[RightArrow]"], 
              FormBox[
               FormBox["\[CapitalDelta]",
                TraditionalForm],
               TraditionalForm]], ")"}], 
            RowBox[{
             RowBox[{"-", "1"}], "-", "i", "+", "m"}]]}], " ", 
          SuperscriptBox["T", 
           FormBox[
            FormBox[
             SubscriptBox["c68", "1"],
             TraditionalForm],
            TraditionalForm]]}]}],
        HoldForm],
       TraditionalForm], ")"}]}]}], "-", 
   RowBox[{
    SubsuperscriptBox["g", "s", "2"], " ", 
    RowBox[{"(", 
     FormBox[
      TagBox[
       RowBox[{
        UnderoverscriptBox["\[Sum]", 
         RowBox[{"j", "=", "0"}], 
         RowBox[{
          RowBox[{"-", "2"}], "+", "m"}]], 
        RowBox[{"(", 
         FormBox[
          TagBox[
           RowBox[{
            UnderoverscriptBox["\[Sum]", 
             RowBox[{"i", "=", "0"}], "j"], 
            RowBox[{
             RowBox[{
              SuperscriptBox["T", 
               FormBox[
                FormBox[
                 SubscriptBox["c72", "1"],
                 TraditionalForm],
                TraditionalForm]], ".", 
              SuperscriptBox["T", 
               FormBox[
                FormBox[
                 SubscriptBox["c72", "2"],
                 TraditionalForm],
                TraditionalForm]]}], " ", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"(", 
                SubscriptBox[
                 OverscriptBox["\[PartialD]", "\[RightArrow]"], 
                 FormBox[
                  FormBox["\[CapitalDelta]",
                   TraditionalForm],
                  TraditionalForm]], ")"}], "i"], ".", 
              SubsuperscriptBox[
               FormBox["A",
                TraditionalForm], 
               FormBox[
                FormBox["\[CapitalDelta]",
                 TraditionalForm],
                TraditionalForm], 
               FormBox[
                FormBox[
                 SubscriptBox["c72", "1"],
                 TraditionalForm],
                TraditionalForm]], ".", 
              SuperscriptBox[
               RowBox[{"(", 
                SubscriptBox[
                 OverscriptBox["\[PartialD]", "\[RightArrow]"], 
                 FormBox[
                  FormBox["\[CapitalDelta]",
                   TraditionalForm],
                  TraditionalForm]], ")"}], 
               RowBox[{
                RowBox[{"-", "i"}], "+", "j"}]], ".", 
              SubsuperscriptBox[
               FormBox["A",
                TraditionalForm], 
               FormBox[
                FormBox["\[CapitalDelta]",
                 TraditionalForm],
                TraditionalForm], 
               FormBox[
                FormBox[
                 SubscriptBox["c72", "2"],
                 TraditionalForm],
                TraditionalForm]], ".", 
              SuperscriptBox[
               RowBox[{"(", 
                SubscriptBox[
                 OverscriptBox["\[PartialD]", "\[RightArrow]"], 
                 FormBox[
                  FormBox["\[CapitalDelta]",
                   TraditionalForm],
                  TraditionalForm]], ")"}], 
               RowBox[{
                RowBox[{"-", "2"}], "-", "j", "+", "m"}]]}]}]}],
           HoldForm],
          TraditionalForm], ")"}]}],
       HoldForm],
      TraditionalForm], ")"}]}], "+", 
   SuperscriptBox[
    RowBox[{"(", 
     SubscriptBox[
      OverscriptBox["\[PartialD]", "\[RightArrow]"], 
      FormBox[
       FormBox["\[CapitalDelta]",
        TraditionalForm],
       TraditionalForm]], ")"}], "m"]}], TraditionalForm]], "Output",
 ImageSize->{563, 106},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"CovariantD",
 CellLabel->"Out[4]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"CovariantD", "[", 
   RowBox[{"OPEDelta", ",", 
    RowBox[{"Explicit", "\[Rule]", "True"}]}], "]"}], "//", 
  "StandardForm"}]], "Input",
 CellTags->"CovariantD",
 CellLabel->"In[5]:=",
 CellID->790160491],

Cell[BoxData[
 RowBox[{
  RowBox[{"RightPartialD", "[", 
   RowBox[{"Momentum", "[", "OPEDelta", "]"}], "]"}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"SUNT", "[", 
     RowBox[{"SUNIndex", "[", "c75", "]"}], "]"}], ".", 
    RowBox[{"QuantumField", "[", 
     RowBox[{"GaugeField", ",", 
      RowBox[{"Momentum", "[", "OPEDelta", "]"}], ",", 
      RowBox[{"SUNIndex", "[", "c75", "]"}]}], "]"}]}], " ", 
   RowBox[{"SMP", "[", "\<\"g_s\"\>", "]"}]}]}]], "Output",
 ImageSize->{384, 50},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"CovariantD",
 CellLabel->"Out[5]//StandardForm="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"CovariantD", "[", 
   RowBox[{"\[Mu]", ",", "a", ",", "b", ",", 
    RowBox[{"Explicit", "\[Rule]", "True"}]}], "]"}], "//", 
  "StandardForm"}]], "Input",
 CellTags->"CovariantD",
 CellLabel->"In[6]:=",
 CellID->160329117],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"RightPartialD", "[", 
    RowBox[{"LorentzIndex", "[", "\[Mu]", "]"}], "]"}], " ", 
   RowBox[{"SUNDelta", "[", 
    RowBox[{"a", ",", "b"}], "]"}]}], "-", 
  RowBox[{
   RowBox[{"QuantumField", "[", 
    RowBox[{"GaugeField", ",", 
     RowBox[{"LorentzIndex", "[", "\[Mu]", "]"}], ",", 
     RowBox[{"SUNIndex", "[", "c76", "]"}]}], "]"}], " ", 
   RowBox[{"SMP", "[", "\<\"g_s\"\>", "]"}], " ", 
   RowBox[{"SUNF", "[", 
    RowBox[{"a", ",", "b", ",", "c76"}], "]"}]}]}]], "Output",
 ImageSize->{469, 50},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"CovariantD",
 CellLabel->"Out[6]//StandardForm="]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[" ", "FooterCell"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{725, 750},
WindowMargins->{{-10, Automatic}, {Automatic, -8}},
WindowTitle->"CovariantD",
TaggingRules->{
 "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
  GridBox[{{
      RowBox[{
        ButtonBox[
        "FeynCalc", ButtonData -> "paclet:FeynCalc/guide/FeynCalc", 
         BaseStyle -> {"Link", "DockedLinkTrail"}]}]}}, ColumnAlignments -> 
    Left], "HasOptions" -> False, "ExampleCounter" -> 1, "NeedPlatMsgIn" -> 
  None, "RootCaptions" -> "", 
  "Metadata" -> {
   "built" -> "{2020, 6, 20, 19, 3, 17.965171}", 
    "history" -> {"9.0", "", "", ""}, "context" -> "FeynCalc`", 
    "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Feyn Calc Symbol", "language" -> "en", "paclet" -> "FeynCalc", "status" -> 
    "None", "summary" -> 
    "CovariantD[\\[Mu]] is a generic covariant derivative with Lorentz index \
\\[Mu]. CovariantD[x, \\[Mu]] is a generic covariant derivative with respect \
to x^\\[Mu]. CovariantD[\\[Mu], a, b] is a covariant derivative for a bosonic \
field that acts on QuantumField[f, {}, {a, b}], where f is some field name \
and a and b are two SU (N) indices in the adjoint representation. \
CovariantD[OPEDelta, a, b] is a short form for CovariantD[\\[Mu], a, b] \
FV[OPEDelta, \\[Mu]]. CovariantD[{OPEDelta, a, b}, {n}] yields the product of \
n operators, where n is an integer. CovariantD[OPEDelta, a, b, {m, n}] gives \
the expanded form of CovariantD[OPEDelta, a, b]^m up to order g^n for the \
gluon, where n is an integer and g the coupling constant indicated by the \
setting of the option CouplingConstant. CovariantD[OPEDelta, {m, n}] gives \
the expanded form of CovariantD[OPEDelta]^m up to order g^n of the fermionic \
field.", "synonyms" -> {}, "tabletags" -> {}, "title" -> "CovariantD", 
    "titlemodifier" -> "", "windowtitle" -> "CovariantD", "type" -> "Symbol", 
    "uri" -> "FeynCalc/ref/CovariantD"}, "SearchTextTranslated" -> ""},
CellContext->"Global`",
FrontEndVersion->"10.4 for Linux x86 (64-bit) (April 11, 2016)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[
    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
   Cell[
    StyleData["Input"], CellContext -> "Global`"], 
   Cell[
    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
  FrontEndVersion -> "10.4 for Linux x86 (64-bit) (April 11, 2016)", 
  StyleDefinitions -> "Default.nb"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "CovariantD"->{
  Cell[8078, 246, 140, 4, 70, "Input",
   CellTags->"CovariantD",
   CellID->1136125130],
  Cell[8221, 252, 529, 15, 56, "Output",
   CellTags->"CovariantD"],
  Cell[9443, 303, 135, 4, 27, "Input",
   CellTags->"CovariantD",
   CellID->691762283],
  Cell[9581, 309, 251, 9, 39, "Output",
   CellTags->"CovariantD"],
  Cell[9869, 323, 168, 5, 27, "Input",
   CellTags->"CovariantD",
   CellID->631235757],
  Cell[10040, 330, 352, 14, 43, "Output",
   CellTags->"CovariantD"],
  Cell[10429, 349, 199, 6, 27, "Input",
   CellTags->"CovariantD",
   CellID->1730385129],
  Cell[10631, 357, 814, 32, 46, "Output",
   CellTags->"CovariantD"],
  Cell[12228, 424, 139, 4, 27, "Input",
   CellTags->"CovariantD",
   CellID->1980257576],
  Cell[12370, 430, 261, 9, 37, "Output",
   CellTags->"CovariantD"],
  Cell[12668, 444, 171, 5, 27, "Input",
   CellTags->"CovariantD",
   CellID->840690314],
  Cell[12842, 451, 362, 14, 41, "Output",
   CellTags->"CovariantD"],
  Cell[13241, 470, 220, 6, 27, "Input",
   CellTags->"CovariantD",
   CellID->82457380],
  Cell[13464, 478, 1013, 41, 44, "Output",
   CellTags->"CovariantD"],
  Cell[14514, 524, 201, 6, 27, "Input",
   CellTags->"CovariantD",
   CellID->570341066],
  Cell[14718, 532, 834, 32, 44, "Output",
   CellTags->"CovariantD"],
  Cell[15589, 569, 206, 6, 27, "Input",
   CellTags->"CovariantD",
   CellID->1557639505],
  Cell[15798, 577, 2053, 79, 48, "Output",
   CellTags->"CovariantD"],
  Cell[18607, 691, 234, 7, 27, "Input",
   CellTags->"CovariantD",
   CellID->1826343413],
  Cell[18844, 700, 642, 25, 43, "Output",
   CellTags->"CovariantD"],
  Cell[19993, 750, 234, 7, 27, "Input",
   CellTags->"CovariantD",
   CellID->1721350899],
  Cell[20230, 759, 2418, 85, 68, "Output",
   CellTags->"CovariantD"],
  Cell[22853, 857, 234, 7, 27, "Input",
   CellTags->"CovariantD",
   CellID->1002319987],
  Cell[23090, 866, 6000, 192, 156, "Output",
   CellTags->"CovariantD"],
  Cell[29127, 1063, 199, 6, 27, "Input",
   CellTags->"CovariantD",
   CellID->608320512],
  Cell[29329, 1071, 426, 16, 43, "Output",
   CellTags->"CovariantD"],
  Cell[29792, 1092, 213, 7, 27, "Input",
   CellTags->"CovariantD",
   CellID->512528140],
  Cell[30008, 1101, 4929, 153, 127, "Output",
   CellTags->"CovariantD"],
  Cell[34974, 1259, 241, 8, 27, "Input",
   CellTags->"CovariantD",
   CellID->790160491],
  Cell[35218, 1269, 639, 17, 86, "Output",
   CellTags->"CovariantD"],
  Cell[35894, 1291, 258, 8, 27, "Input",
   CellTags->"CovariantD",
   CellID->160329117],
  Cell[36155, 1301, 683, 19, 86, "Output",
   CellTags->"CovariantD"]},
 "PrimaryExamplesSection"->{
  Cell[8811, 274, 387, 15, 31, "PrimaryExamplesSection",
   CellTags->"PrimaryExamplesSection",
   CellID->892444633]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"CovariantD", 39552, 1382},
 {"PrimaryExamplesSection", 42158, 1463}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[582, 21, 2280, 53, 53, "AnchorBarGrid",
 CellID->1],
Cell[2865, 76, 287, 11, 45, "ObjectNameGrid"],
Cell[CellGroupData[{
Cell[3177, 91, 3844, 112, 497, "Usage"],
Cell[CellGroupData[{
Cell[7046, 207, 739, 24, 31, "NotesSection",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1013191662],
Cell[7788, 233, 31, 0, 70, "SectionHeaderSpacer"],
Cell[7822, 235, 231, 7, 70, "Notes"],
Cell[CellGroupData[{
Cell[8078, 246, 140, 4, 70, "Input",
 CellTags->"CovariantD",
 CellID->1136125130],
Cell[8221, 252, 529, 15, 56, "Output",
 CellTags->"CovariantD"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[8811, 274, 387, 15, 31, "PrimaryExamplesSection",
 CellTags->"PrimaryExamplesSection",
 CellID->892444633],
Cell[CellGroupData[{
Cell[9223, 293, 195, 6, 26, "ExampleSection",
 CellID->699025235],
Cell[CellGroupData[{
Cell[9443, 303, 135, 4, 27, "Input",
 CellTags->"CovariantD",
 CellID->691762283],
Cell[9581, 309, 251, 9, 39, "Output",
 CellTags->"CovariantD"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9869, 323, 168, 5, 27, "Input",
 CellTags->"CovariantD",
 CellID->631235757],
Cell[10040, 330, 352, 14, 43, "Output",
 CellTags->"CovariantD"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10429, 349, 199, 6, 27, "Input",
 CellTags->"CovariantD",
 CellID->1730385129],
Cell[10631, 357, 814, 32, 46, "Output",
 CellTags->"CovariantD"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11482, 394, 105, 2, 9, "ExampleDelimiter"],
Cell[11590, 398, 613, 22, 49, "Notes"],
Cell[CellGroupData[{
Cell[12228, 424, 139, 4, 27, "Input",
 CellTags->"CovariantD",
 CellID->1980257576],
Cell[12370, 430, 261, 9, 37, "Output",
 CellTags->"CovariantD"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12668, 444, 171, 5, 27, "Input",
 CellTags->"CovariantD",
 CellID->840690314],
Cell[12842, 451, 362, 14, 41, "Output",
 CellTags->"CovariantD"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13241, 470, 220, 6, 27, "Input",
 CellTags->"CovariantD",
 CellID->82457380],
Cell[13464, 478, 1013, 41, 44, "Output",
 CellTags->"CovariantD"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14514, 524, 201, 6, 27, "Input",
 CellTags->"CovariantD",
 CellID->570341066],
Cell[14718, 532, 834, 32, 44, "Output",
 CellTags->"CovariantD"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15589, 569, 206, 6, 27, "Input",
 CellTags->"CovariantD",
 CellID->1557639505],
Cell[15798, 577, 2053, 79, 48, "Output",
 CellTags->"CovariantD"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[17900, 662, 105, 2, 9, "ExampleDelimiter"],
Cell[18008, 666, 574, 21, 42, "Notes"],
Cell[CellGroupData[{
Cell[18607, 691, 234, 7, 27, "Input",
 CellTags->"CovariantD",
 CellID->1826343413],
Cell[18844, 700, 642, 25, 43, "Output",
 CellTags->"CovariantD"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[19535, 731, 105, 2, 9, "ExampleDelimiter"],
Cell[19643, 735, 325, 11, 33, "Notes"],
Cell[CellGroupData[{
Cell[19993, 750, 234, 7, 27, "Input",
 CellTags->"CovariantD",
 CellID->1721350899],
Cell[20230, 759, 2418, 85, 68, "Output",
 CellTags->"CovariantD"]
}, Open  ]],
Cell[22663, 847, 165, 6, 33, "Notes"],
Cell[CellGroupData[{
Cell[22853, 857, 234, 7, 27, "Input",
 CellTags->"CovariantD",
 CellID->1002319987],
Cell[23090, 866, 6000, 192, 156, "Output",
 CellTags->"CovariantD"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29127, 1063, 199, 6, 27, "Input",
 CellTags->"CovariantD",
 CellID->608320512],
Cell[29329, 1071, 426, 16, 43, "Output",
 CellTags->"CovariantD"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29792, 1092, 213, 7, 27, "Input",
 CellTags->"CovariantD",
 CellID->512528140],
Cell[30008, 1101, 4929, 153, 127, "Output",
 CellTags->"CovariantD"]
}, Open  ]],
Cell[CellGroupData[{
Cell[34974, 1259, 241, 8, 27, "Input",
 CellTags->"CovariantD",
 CellID->790160491],
Cell[35218, 1269, 639, 17, 86, "Output",
 CellTags->"CovariantD"]
}, Open  ]],
Cell[CellGroupData[{
Cell[35894, 1291, 258, 8, 27, "Input",
 CellTags->"CovariantD",
 CellID->160329117],
Cell[36155, 1301, 683, 19, 86, "Output",
 CellTags->"CovariantD"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[36889, 1326, 23, 0, 41, "FooterCell"]
}
]
*)

(* End of internal cache information *)

